﻿Public Class Form1

    Dim Report As New Report

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        OpenConnection("", "istihdam", "sa", "relayer")
        Dim Rs = OpenSQL("exec Tablo5")
        With Report.AddSection.Body
            With .AddTable("2;1;1;1")
                .AddHeader("Test", "1", "2", "3")
                .AddRow("Test", "1", "2", "3")
                .AddRow("Test", "1", "2", "3")
            End With
        End With
        Document1.SetReport(Report)
    End Sub

End Class
